Namespace Data.ProviderModel

	Public Module DbCommandExtensions
		<System.Runtime.CompilerServices.Extension> _
		Public Sub AddParameter(Of T)(ByVal dbCommand As IDbCommand, ByVal parameterName As String, ByVal value As T)
			Dim parameter = dbCommand.CreateParameter()
			parameter.ParameterName = parameterName
			parameter.Value = value
			dbCommand.Parameters.Add(parameter)
		End Sub
	End Module
End Namespace